3.38 \(\int \frac {a+b x^2}{a^2+(-1+2 a b) x^2+b^2 x^4} \, dx\)

Optimal. Leaf size=60 \[ \frac {\tanh ^{-1}\left (\frac {1-2 b x}{\sqrt {1-4 a b}}\right )}{\sqrt {1-4 a b}}-\frac {\tanh ^{-1}\left (\frac {2 b x+1}{\sqrt {1-4 a b}}\right )}{\sqrt {1-4 a b}} \]

[Out]

arctanh((-2*b*x+1)/(-4*a*b+1)^(1/2))/(-4*a*b+1)^(1/2)-arctanh((2*b*x+1)/(-4*a*b+1)^(1/2))/(-4*a*b+1)^(1/2)

________________________________________________________________________________________

Rubi [A]  time = 0.07, antiderivative size = 60, normalized size of antiderivative = 1.00, number of steps used = 5, number of rules used = 3, integrand size = 31, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.097, Rules used = {1161, 618, 206} \[ \frac {\tanh ^{-1}\left (\frac {1-2 b x}{\sqrt {1-4 a b}}\right )}{\sqrt {1-4 a b}}-\frac {\tanh ^{-1}\left (\frac {2 b x+1}{\sqrt {1-4 a b}}\right )}{\sqrt {1-4 a b}} \]

Antiderivative was successfully verified.

[In]

Int[(a + b*x^2)/(a^2 + (-1 + 2*a*b)*x^2 + b^2*x^4),x]

[Out]

ArcTanh[(1 - 2*b*x)/Sqrt[1 - 4*a*b]]/Sqrt[1 - 4*a*b] - ArcTanh[(1 + 2*b*x)/Sqrt[1 - 4*a*b]]/Sqrt[1 - 4*a*b]

Rule 206

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(1*ArcTanh[(Rt[-b, 2]*x)/Rt[a, 2]])/(Rt[a, 2]*Rt[-b, 2]), x]
/; FreeQ[{a, b}, x] && NegQ[a/b] && (GtQ[a, 0] || LtQ[b, 0])

Rule 618

Int[((a_.) + (b_.)*(x_) + (c_.)*(x_)^2)^(-1), x_Symbol] :> Dist[-2, Subst[Int[1/Simp[b^2 - 4*a*c - x^2, x], x]
, x, b + 2*c*x], x] /; FreeQ[{a, b, c}, x] && NeQ[b^2 - 4*a*c, 0]

Rule 1161

Int[((d_) + (e_.)*(x_)^2)/((a_) + (b_.)*(x_)^2 + (c_.)*(x_)^4), x_Symbol] :> With[{q = Rt[(2*d)/e - b/c, 2]},
Dist[e/(2*c), Int[1/Simp[d/e + q*x + x^2, x], x], x] + Dist[e/(2*c), Int[1/Simp[d/e - q*x + x^2, x], x], x]] /
; FreeQ[{a, b, c, d, e}, x] && NeQ[b^2 - 4*a*c, 0] && EqQ[c*d^2 - a*e^2, 0] && (GtQ[(2*d)/e - b/c, 0] || ( !Lt
Q[(2*d)/e - b/c, 0] && EqQ[d - e*Rt[a/c, 2], 0]))

Rubi steps

\begin {align*} \int \frac {a+b x^2}{a^2+(-1+2 a b) x^2+b^2 x^4} \, dx &=\frac {\int \frac {1}{\frac {a}{b}-\frac {x}{b}+x^2} \, dx}{2 b}+\frac {\int \frac {1}{\frac {a}{b}+\frac {x}{b}+x^2} \, dx}{2 b}\\ &=-\frac {\operatorname {Subst}\left (\int \frac {1}{\frac {1-4 a b}{b^2}-x^2} \, dx,x,-\frac {1}{b}+2 x\right )}{b}-\frac {\operatorname {Subst}\left (\int \frac {1}{\frac {1-4 a b}{b^2}-x^2} \, dx,x,\frac {1}{b}+2 x\right )}{b}\\ &=\frac {\tanh ^{-1}\left (\frac {1-2 b x}{\sqrt {1-4 a b}}\right )}{\sqrt {1-4 a b}}-\frac {\tanh ^{-1}\left (\frac {1+2 b x}{\sqrt {1-4 a b}}\right )}{\sqrt {1-4 a b}}\\ \end {align*}

________________________________________________________________________________________

Mathematica [B]  time = 0.20, size = 138, normalized size = 2.30 \[ \frac {\frac {\left (\sqrt {1-4 a b}+1\right ) \tan ^{-1}\left (\frac {b x}{\sqrt {a b-\frac {1}{2} \sqrt {1-4 a b}-\frac {1}{2}}}\right )}{\sqrt {2 a b-\sqrt {1-4 a b}-1}}+\frac {\left (\sqrt {1-4 a b}-1\right ) \tan ^{-1}\left (\frac {\sqrt {2} b x}{\sqrt {2 a b+\sqrt {1-4 a b}-1}}\right )}{\sqrt {2 a b+\sqrt {1-4 a b}-1}}}{\sqrt {2-8 a b}} \]

Antiderivative was successfully verified.

[In]

Integrate[(a + b*x^2)/(a^2 + (-1 + 2*a*b)*x^2 + b^2*x^4),x]

[Out]

(((1 + Sqrt[1 - 4*a*b])*ArcTan[(b*x)/Sqrt[-1/2 + a*b - Sqrt[1 - 4*a*b]/2]])/Sqrt[-1 + 2*a*b - Sqrt[1 - 4*a*b]]
+ ((-1 + Sqrt[1 - 4*a*b])*ArcTan[(Sqrt[2]*b*x)/Sqrt[-1 + 2*a*b + Sqrt[1 - 4*a*b]]])/Sqrt[-1 + 2*a*b + Sqrt[1
- 4*a*b]])/Sqrt[2 - 8*a*b]

________________________________________________________________________________________

fricas [A]  time = 0.46, size = 164, normalized size = 2.73 \[ \left [-\frac {\sqrt {-4 \, a b + 1} \log \left (\frac {b^{2} x^{4} - {\left (6 \, a b - 1\right )} x^{2} + a^{2} - 2 \, {\left (b x^{3} - a x\right )} \sqrt {-4 \, a b + 1}}{b^{2} x^{4} + {\left (2 \, a b - 1\right )} x^{2} + a^{2}}\right )}{2 \, {\left (4 \, a b - 1\right )}}, \frac {\sqrt {4 \, a b - 1} \arctan \left (\frac {b x}{\sqrt {4 \, a b - 1}}\right ) + \sqrt {4 \, a b - 1} \arctan \left (\frac {{\left (b^{2} x^{3} + {\left (3 \, a b - 1\right )} x\right )} \sqrt {4 \, a b - 1}}{4 \, a^{2} b - a}\right )}{4 \, a b - 1}\right ] \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((b*x^2+a)/(a^2+(2*a*b-1)*x^2+b^2*x^4),x, algorithm="fricas")

[Out]

[-1/2*sqrt(-4*a*b + 1)*log((b^2*x^4 - (6*a*b - 1)*x^2 + a^2 - 2*(b*x^3 - a*x)*sqrt(-4*a*b + 1))/(b^2*x^4 + (2*
a*b - 1)*x^2 + a^2))/(4*a*b - 1), (sqrt(4*a*b - 1)*arctan(b*x/sqrt(4*a*b - 1)) + sqrt(4*a*b - 1)*arctan((b^2*x
^3 + (3*a*b - 1)*x)*sqrt(4*a*b - 1)/(4*a^2*b - a)))/(4*a*b - 1)]

________________________________________________________________________________________

giac [A]  time = 0.18, size = 51, normalized size = 0.85 \[ \frac {\arctan \left (\frac {2 \, b x + 1}{\sqrt {4 \, a b - 1}}\right )}{\sqrt {4 \, a b - 1}} + \frac {\arctan \left (\frac {2 \, b x - 1}{\sqrt {4 \, a b - 1}}\right )}{\sqrt {4 \, a b - 1}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((b*x^2+a)/(a^2+(2*a*b-1)*x^2+b^2*x^4),x, algorithm="giac")

[Out]

arctan((2*b*x + 1)/sqrt(4*a*b - 1))/sqrt(4*a*b - 1) + arctan((2*b*x - 1)/sqrt(4*a*b - 1))/sqrt(4*a*b - 1)

________________________________________________________________________________________

maple [A]  time = 0.01, size = 52, normalized size = 0.87 \[ \frac {\arctan \left (\frac {2 b x -1}{\sqrt {4 a b -1}}\right )}{\sqrt {4 a b -1}}+\frac {\arctan \left (\frac {2 b x +1}{\sqrt {4 a b -1}}\right )}{\sqrt {4 a b -1}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((b*x^2+a)/(a^2+(2*a*b-1)*x^2+b^2*x^4),x)

[Out]

1/(4*a*b-1)^(1/2)*arctan((2*b*x-1)/(4*a*b-1)^(1/2))+1/(4*a*b-1)^(1/2)*arctan((2*b*x+1)/(4*a*b-1)^(1/2))

________________________________________________________________________________________

maxima [F(-2)]  time = 0.00, size = 0, normalized size = 0.00 \[ \text {Exception raised: ValueError} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((b*x^2+a)/(a^2+(2*a*b-1)*x^2+b^2*x^4),x, algorithm="maxima")

[Out]

Exception raised: ValueError >> Computation failed since Maxima requested additional constraints; using the 'a
ssume' command before evaluation *may* help (example of legal syntax is 'assume(a*b-0.25>0)', see `assume?` fo
r more details)Is a*b-0.25 positive or negative?

________________________________________________________________________________________

mupad [B]  time = 0.07, size = 55, normalized size = 0.92 \[ \frac {\mathrm {atan}\left (\frac {b\,x}{\sqrt {4\,a\,b-1}}\right )+\mathrm {atan}\left (\frac {\frac {3\,x\,\left (4\,a\,b-1\right )}{4}-\frac {x}{4}+b^2\,x^3}{a\,\sqrt {4\,a\,b-1}}\right )}{\sqrt {4\,a\,b-1}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((a + b*x^2)/(x^2*(2*a*b - 1) + a^2 + b^2*x^4),x)

[Out]

(atan((b*x)/(4*a*b - 1)^(1/2)) + atan(((3*x*(4*a*b - 1))/4 - x/4 + b^2*x^3)/(a*(4*a*b - 1)^(1/2))))/(4*a*b - 1
)^(1/2)

________________________________________________________________________________________

sympy [B]  time = 0.46, size = 117, normalized size = 1.95 \[ - \frac {\sqrt {- \frac {1}{4 a b - 1}} \log {\left (- \frac {a}{b} + x^{2} + \frac {x \left (- 4 a b \sqrt {- \frac {1}{4 a b - 1}} + \sqrt {- \frac {1}{4 a b - 1}}\right )}{b} \right )}}{2} + \frac {\sqrt {- \frac {1}{4 a b - 1}} \log {\left (- \frac {a}{b} + x^{2} + \frac {x \left (4 a b \sqrt {- \frac {1}{4 a b - 1}} - \sqrt {- \frac {1}{4 a b - 1}}\right )}{b} \right )}}{2} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((b*x**2+a)/(a**2+(2*a*b-1)*x**2+b**2*x**4),x)

[Out]

-sqrt(-1/(4*a*b - 1))*log(-a/b + x**2 + x*(-4*a*b*sqrt(-1/(4*a*b - 1)) + sqrt(-1/(4*a*b - 1)))/b)/2 + sqrt(-1/
(4*a*b - 1))*log(-a/b + x**2 + x*(4*a*b*sqrt(-1/(4*a*b - 1)) - sqrt(-1/(4*a*b - 1)))/b)/2

________________________________________________________________________________________